Option Explicit
Sub B_Sample034()
    Dim myWb      As Workbook
    Dim myDocProp As DocumentProperty
    Set myWb = Workbooks(1)				'Nï
    Columns("A:B").ClearContents
    Range("A1:B1").Value = Array("ݩʦW", "")	'D]w
For Each myDocProp In myWb.BuiltinDocumentProperties
        With Cells(Rows.Count, 1).End(xlUp).Offset(1)
            .Value = myDocProp.Name
            On Error Resume Next
            	.Offset(, 1).Value = myDocProp.Value
            On Error GoTo 0
        End With
    Next
    Set myWb = Nothing						'
End Sub
